#!/usr/local/bin/perl5 -w
use Getopt::Std;
require "/path/datafile";
getopts('f:');
chomp $opt_f ;
if ( $opt_f ) {
        @combined =  eval "$opt_f" ;
}
foreach $entry ( @combined )
{
        print "$entry \n";
}