AP
my $file_content = do{local(@ARGV,$/)=$filename;<>}; —кулSize: a a a
AP
my $file_content = do{local(@ARGV,$/)=$filename;<>}; —кулsA
SZ
sA
IB
my $file_content = `cat $file_name`;SZ
AP
IB
AP
IB
AP
AP
SZ
SZ
use Data::Dumper;
sub Devel::StackTrace::_ref_to_string { Data::Dumper->Dump [$_[1]] };SZ
sA
SZ
SZ
sA
sA