Select Code to Download

$VAR1 = 'main';
$VAR2 = 'D:\\test.pl';
...


';

    #  0         1          2      3            4
    ($package, $filename, $line, $subroutine, $hasargs,
    #  5          6          7            8       9         10
    $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash)  
+= caller($i);