Select Code to Download

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

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

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