Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print STDERR 'infunc:' . Dumper($in);
}

before: $VAR1 = undef;
infunc:$VAR1 = [
...
last:$VAR1 = [
          'hownow'
        ];