#!/usr/local/bin/perl

print "Enter the script to execute: ";
$SCRIPT = <STDIN>;
print "Enter the source file: ";
$DATA = <STDIN>;
print $SCRIPT, "\n";