#! perl -slw use strict; use junk qw[ test test2 ]; test; test2;