#!/usr/local/bin/perl -ln

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
 $atime,$mtime,$ctime,$blksize,$blocks) = lstat;

$,="\t";

print if $size > 512 * $blocks;