#!/usr/bin/perl
#
# $Id: blank-sub 2592 2003-12-21 00:33:01Z jmates $
#
# The author disclaims all copyrights and releases this document into
# the public domain.
#
# Template benchmark script with subroutines.

use Benchmark;

# test the routines here
#&tag;

timethese(100000, { 
    'tag' => \&tag,
});

sub tag {

}