I'm guessing that you want this

require "dotsh.pl";
$ENV{SHELL} = "/bin/sh";
dotsh("/path/to/some/sourcable/file");
[download]

Update: looking back, I think I misunderstood your question, but I'll leave this here anyways.

:|BastardOperator|:
      {From Hell}