1# Taken from https://perldoc.perl.org/functions/use.html 2use constant 3ONE => 1; 4use diagnostics; 5use integer; 6use sigtrap qw(SEGV BUS); 7use strict qw(subs vars refs); 8use subs qw(afunc blurfl); 9use warnings qw(all); 10use sort qw(stable _quicksort _mergesort); 11 12no integer; 13no strict 'refs'; 14no warnings; 15