Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $error = 10;
print "$error.\n";

#!/usr/bin/perl -w
use strict;
...
print "After: ";
# Run the first script
do "file1";

#!/usr/bin/perl -w
use strict;
...
print "After: ";
# Run the first script
do "file1";