Help for this page
#!/usr/bin/perl use strict; ... print "@array\n"; sub1("Hello!");
package xyz; use strict; ... print "Text: $text\n"; }