$file = "bad.out";

open BAD, $file or die "Oops can't open $file Perl says $!\n"

# do stuff to BAD

close BAD;

if ( -s $file ) {
    # file has size
} else {
    # file has zero size
    unlink $file or die "Can't unlink $file: $!\n";
}