#!/usr/bin/perl -w
use strict;

### execute script and save content in $output
my $output = `./2.pl argument.txt`;
my $filename = "./output.txt"; 

### write output to file $filename 
open (OUTFILE, ">$filename") or die "Can't open $filename: $!";
print OUTFILE $output;
close OUTFILE;