PERL $_GET and $_POST

[dobs]

#!/usr/bin/perl
print "Content-type: text/html\n\n";

sub formatfilesize($var) {
        print $var. ' Байт';
}

	
&formatfilesize(100);
print $fsize{'100'};

 

[jik]

попробуй так:

#!/usr/bin/perl 
print "Content-type: text/html\n\n"; 

sub formatfilesize
{ 
  my $var;
  $var = $_[0];
  print $var. ' Байт'; 
} 
     
&formatfilesize(100); 
print $fsize{'100'};