perl sier.pl 5