#!/bin/perl
# To remove all 0 byte file in a folder
my $dir = "/home/bob/mytemp"; 
while (<$dir/*>) {unlink $_ unless (-s)}