[root@H99A115 03]# ./convert
./convert: line 4: syntax error near unexpected token `{'
./convert: line 4: `while(my $line = $in){'

##</code><code>##

open my $in, '<', 'q22adm_history' or die "Bummer: $!";
open my $out, '>', 'q22adm' or die "What: $!";