#!/usr/bin/perl package Test; use strict; use warnings; use Data::Dumper; my ($foo, $bar); sub wibble { # blah } # TODO: test this line 1;