Select Code to Download

$code = get_selection()

...
    shell_command( "rm " $tmpfile, "")
}

#!/usr/bin/perl

...
my ($new_sub_call,$new_code) = $refactory->extract_subroutine($subname
+,$old_code);

print "\n# sub call\n",$new_sub_call, "\n\n#sub definition\n", $new_co
+de;