Once again the manual saves the day, open:

defined (my $pid = open(FROM_CHILD, "-|")) or die "can't fork: $!";
if ($pid) {
     my @output = <FROM_CHILD>;
     wait;
     close FROM_CHILD;
     return @output;
}
else {
      open(STDERR, ">&STDOUT")     || die "Can't dup stdout";
      exec "/usr/bin/sudo", @command;
      die "can't exec: $!";
}
[download]

--
perl -p -e "s/(?:\w);([st])/'\$1/mg"