#!/usr/bin/perl -w
use strict;

sub bla;  # a forward declaration

bla;      # <--- call the bla routine

sub bla {
    print "Bla!\n";
}