Select Code to Download

 sub sparaData {
open (KOF, ">$konfil") or die "Kan inte \xF6ppna filen $konfil";
flock (KOF, 2) or die "Kan inte l\xE5sa filen $konfil";
...
$size = -s $konfil;
return;
}

sub sparaData {
    my( $konfil, $qry ) = @_;
...
    my $size = -s $konfil;
    return $size;
}

my $qry = CGI->new;
my $number = sparaData( "blah/blah/blah.data", $qry );

my $roshambo = CGI->new;
my $size = sparaData( "blah/blah/blah.data", $roshambo );