Select Code to Download

my $xor = substr($data[$d1],$s1,$L) 
        ^ substr($data[$d2],$s2,$L);

#!/your/perl/here

...
    print "$msg\nd:$delta_time\nt:$total_time\n";
    return @t[0,-1];
}