Select Code to Download

#!/usr/bin/perl
...
print STDERR $file, "\n";

close STDERR;

use Test::More qw(no_plan);
$\="\n";
...
diag("hi friend");
use_ok("fake_module");
print "bye";