use strict;
use warnings;


sub foo;   # damit kann foo() ohne Klammern
*foo = \&bar;

foo "Dollar"; # Alles in bar und in Dollar!!!

sub bar{
        my $currency = shift;
        print "Alles in bar und in $currency!!!\n";
}