Uploaded Inline::Awk to CPAN. This allows you to add awk code to a perl program:

        #!/usr/bin/perl
 
        use Inline AWK;
    
        $num = 5;
        $str = 'ciao';
    
        print square($num), "\n";
        print echo($str),       "\n";
    
        print "Now, back to our normal program.\n"
    
        __END__
        __AWK__
    
        function square(num) {
            return num * num
        }
    
        function echo(str) {
            return str " " str
        }

Whether or not anyone in their right mind would want to do this is open to debate. :-)

First we take Manhattan

Berlin for the next three weeks.