use strict;
use warnings;

{
    #creating a package
    package newPackage;
    sub subroutine1 {
        print "*This is a new package called from within the file*\n";
    }
}



print keys(%newPackage::),"\n";
print "\n\n";