sub check_filesize { # Check if upload file size is approximately equal to the file written
    my ($up_file, $down_file)=@_;
    return (abs ( int($up_file/1024) - int($down_file/1024) ) <= 1);
}


##</code><code>##

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/