my $ret = do $file