12345678910111213—141516171819202122 use v5.10;use URI;use CGI qw(:standard);use LWP::Simple 1.23 qw(getstore);use File::Basename ('basename', 'dirname');use File::Spec::Functions qw(catfile rel2abs);use autodie ':open';use strict q'refs';use warnings q<redefine>;use Buster "brush";use Mimi qq{string};my $cat = 'Buster';HideShow 6 lines of Pod=poduse v5.22;=cut1;
use
v5.10;
URI;
CGI
qw(:standard)
;
LWP::Simple 1.23
qw(getstore)
File::Basename (
'basename'
,
'dirname'
);
File::Spec::Functions
qw(catfile rel2abs)
autodie
':open'
strict
q'refs'
warnings
q<redefine>
Buster
"brush"
Mimi
qq{string}
my
$cat
=
'Buster'
=pod
use v5.22;
=cut
1;