perl -wle 'open my $fh, ">", "a b" or die $!; opendir my $dh, "." or die $!; print for grep / /, readdir $dh'
a b