!#/bin/perl
# To remove all 0 byte file in a folder

my $dir = "/home/bob/mytemp";
system "find '$dir' -size 0c | xargs rm";