Select Code to Download

use warnings;
use strict;
...

say 'foobar';
warn 'this is a warning';

use warnings;
use strict;
...
close($wtr);

waitpid( $pid, 0 );

c:\Temp>teste.pl
this is a warning at dummy.pl line 7.
foobar
Use of uninitialized value $err in <HANDLE> at C:\Temp\teste.pl line 1
+5.
readline() on unopened filehandle at C:\Temp\teste.pl line 15.

This is perl 5, version 16, subversion 3 (v5.16.3) built for MSWin32-x
+86-multi-thread