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

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