perl program.pl steel