undef $/; open FILE, shift; my @lines = ; 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;