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

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

bla;