Ghetto.pm

module Ghetto;

sub run($cmd) {
   # create a random filename to store output in
   my $tmp = ".tmp-{(1..100).pick}-ghetto";

   # use the real run command, :: means root namespace
   ::run("$cmd > '$tmp'");

   # open the file
   my $data_file = open($tmp, :r);
   
   # put the data from the file into a variable
   my $val;
   for =$data_file { $val ~= "$_\n"; }

   # delete the file
   unlink($tmp);

   #gimme my data!
   return $val;
}