Select Code to Download

undef $/;
open FILE, shift;
my @lines = <FILE>;
close FILE;
foreach my $str (@lines){print $str};

package my;
import n.a.m.e;
import i.s;
import a.b.h.i.s.h.e.k;
import s.r.i.v.a.s.t.a.v.a;