system("./1.pl filename.txt");      # to stdout, or:
my $output = `./1.pl filename.txt`  # in $output