How can I write this in PL/Perl?

CREATE FUNCTION myFunction(text) RETURNS text AS $_$
#!/bin/bash
/bin/launch.x vide $1
exit 0
$_$
   LANGUAGE plsh;