while(chomp(my $line = <$fh>)) {
    $show = "$line\n";
}