#!/usr/bin/perl

$file=@ARGV[0];
($dev, $ino, $mode, $nlink, $ui, $gi, $rdev, $size,
	 $atime, $mtime, $ctime, $bsize, $blocks) = stat($file);
$s=int ($size / 1024);
print "$s";
