Select Code to Download

use strict; use warnings;
my $do_me="do_me.pl";
...
  print "Can not evaluate $do_me: $@\n" if $@;
  print("$result\n") if defined $result;
}

Create file without newline
Can not read do_me.pl: Bad file descriptor
string
Create file with newline
string