$ cat foo.pl
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

if (@ARGV){
    print Dumper \@ARGV;
} else {
    system $^X, $0, "a\nb";
}
__END__
$ perl foo.pl
$VAR1 = [
          'a
b'
        ];