# Taken from http://www.perlmonks.org/?node_id=5551212
# Thanks to <userid> for providing it!
sub foo {
    # Some useful code here
}