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

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