#!/usr/bin/perl -w

`clear`;
print "\n\n\n\n          What is the Passing Variable? ";
my $ans = <STDIN>;
chomp $ans;

system("perl some_perl_script.pl -s $ans -r | tee -a ./log/$ans.log 2>&1");