Have you looked at do?

Use this sub:

# Useage example:
my $error = run_code('/file1.pl');
print "Run code failed, err msg:\n$error" if $error;

sub run_code {
    my $path = shift;
    open(CODE, $path) || return "Oops: $path $!\n";
    local $/;    
    my $code = <CODE>;
    eval $code;
  return $@;
}
[download]

The local $/ gives a locally undefined value to the input record seperator $/ with the result that we glob the whole file into $code. This saves us from @code = <CODE>; $code= join'',@code;

The sub returns undef if it suceeds or the error message if it fails to run the code.

Hope this helps.

tachyon

Write a module that exports functions. Call the functions instead of requireing the file. See perlmod or use Super Search to look for 'writing a module'.

or why not simply use it like this? do 'something.pl'

Umm... why would you need to include the file twice? If you don't like require complaining, you can store the files you've already included in a hash, then include files only if they are not already in the hash...