#!/usr/athena/bin/perl

die "Usage: $0 filename size\n"
    if (@ARGV != 2);

($file, $reqsize) = @ARGV;

die "Can't find : $!.\n"
    if (! (-f $file));

$filesize = (-s $file);

if ($filesize > $reqsize) {
    die "$0: size of $file ($filesize) > requested ($reqsize).\n";
}
else {
    exit 0;
}