#!/usr/bin/perl -w

use strict;

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

my $results = `perl some_perl_script.pl -s $ans -r`;

my $file = './log/$ans.log';
open my $fh, '>>', $file or die "$file: $!';
print $fh $results;
close $fh;

print $results;