Скриптец для удаления множества пакаджей Солярки

#pkginfo|grep Northern выдает кучу лишних пакаджей типа:
system SUNWnafos Northern Africa OS Support
system SUNWnafow Northern Africa OW Support
Скриптик помогает создать файлик, при запуске которого можно удалить все эти пакаджи разом.
1) Наваять скрипт 1.pl
#/bin/perl
while (){
(undef, my $a, undef)=split;
print "pkgrm -n $a\n";}
2) pkginfo|grep Northern | perl 1.pl > aaa
3) chmod 755 aaa
Запустить aaa