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