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