Mine

#!/usr/bin/perl -w
use strict;
use attributes();

write_file();

sub trace {
    print "trace called\n";
}
sub write_file : trace {
    print "write_file called\n";
}