01 #! /usr/bin/perl
02: use warnings;
03: use strict;
04: 
05: my @result = `dir`; # as list
06: die "Error 1: $!\n" if $!;
07: print @result, "\n\n";
08: 
09: my $result = `dir`;
10: die "Error 2: $!\n" if $!; 
11: print $result;

##</code><code>##

Error 2: Bad file descriptor