Updated: sub getTotalSize { my $flength_file = shift; open FILE,$flength_file || die"File open error!"; my $total = <FILE>; close FILE; chomp $total; &DisplayMessage($total) if $total =~ /ERROR/; my $ftime = time; return ($total,$ftime); } But still doesn't work.

All is good for small file (<1Mb)

but if I try a bigger file no progress bar and error after some seconds

This is the link:
http://venergetic.org/demos/cgi-bin/upload_form.html

Can you help me please?

Thanks in advance