use IPC::Run qw( run );
use feature qw(say);

say alien( q(echo), q(fubar) );

sub alien {
   my ($command, $arg) = @_;
   run qq($command $arg);
}