$ perl -wl -MFatal=open -e 'open my $pipe, "date|"; print scalar <$pipe>'
Tue Mar 25 02:37:32 CET 2003