Help for this page
~/MyPerl/ | ... |____ data.pri |____ data.sec
# mycode.pl ... my $result = some_function($file,$file_sec);