Select Code to Download

#!/usr/bin/perl 

...
print Dumper( %response ), "\n";
print Dumper(my $end = time);
print Dumper(my $elapsed_time = ($end - $start));

#!/usr/bin/perl 

...
    my $packet = $_[ARG0];
    print Dumper( $packet );
}