#!/usr/bin/perl -w use strict; do 'mysub.pm'; # The rest of code