#!/usr/bin/perl -w
use strict;
my  $text = $ARGV[0];
my  $outfile = $ARGV[1];

open OUT, ">", $outfile
    or die "$0 : failed to open output file $outfile:$!\n";
print OUT "THIS IS YOUR INPUT TEXT: $text\n";
close OUT;
exit 0;