Select Code to Download

#!/usr/bin/perl

...

print "This", "is", "a", "test\n";

a... list... of... things
Thisisatest

use strict;

...
   $usefuldata = 2; # in real life, lots of logic here
  }
  insert_into_database($usefuldata)

use strict;

...

# Now we can calculate $usefuldata exactly where we want it
insert_into_database( get_useful_data() )