perl -le '$ENV{sauoq}="() { echo sauoq; }"; print `bash -c sauoq`'

##</code><code>##

#!/bin/bash
sub sauoq() 
{
    echo sauoq
}
export -f sauoq
./script.pl

##</code><code>##

#!/usr/bin/perl
print `bash -c sauoq`