Help for this page
package xyz; use strict; ... } 1;
#!/usr/bin/perl ... print "SAFETY\n"; print "@safety\n";