#!/usr/bin/perl -w
my  $text = $ARGV[0];     
my  $OUTFILE_file_name = $ARGV[1];      # output file name

open ( OUTFILE, '>', $OUTFILE_file_name ) 
    or die "$0 : failed to open output file $OUTFILE_file_name : $!\n";

print OUTFILE "THIS IS YOUR INPUT TEXT: $text\n";


close ( OUTFILE );          # close output file