Select Code to Download

# 692459.pl
use strict;
...
    print HANDLE "....";
}
__END__

# 692459.t

...
ok(-s $f, q{file's size is non-zero});
cmp_ok(unlink($f), q{==}, 1, q{Delete 1 file});
__END__

C:\src\perl\perlmonks\692459>prove 692459.t
692459....ok
...
C:\src\perl\perlmonks\692459>perl -v

This is perl, v5.8.8 built for MSWin32-x86-multi-thread