$ perl -e '
    use strict;
    use warnings;
    use autodie qw{:all};

    my $output_file = q{output.txt};
    my $return_value = system "ls -l >> $output_file";
'