#    nonsense to know the file size

if($ARGV[0]eq"-info"){
    $len=length($file);
    print $len."\n";
    exit 1;
}

##</code><code>##

     $len = -s $file;  # not length($file)

##</code><code>##

if(($ARGV[2]=~m/-t/)==1){
    $MAX_SIZE_PART=substr($ARGV[2],2);    
}

##</code><code>##

if ( $ARGV[2] =~ /^-t(\d+)/ ) {
    $MAX_SIZE_PART = $1;
} else {
    die "Usage: blah blah\n";
}