#!usr/bin/perl
use say;
use strict;
use warnings;
use Pm::Security qw( banned );
# use Benchmark qw(:all) ; # WindowsOSn
# use Benchmark::Forking qw( timethese cmpthese );

my @list = qw (First ~ Second);

say banned( @list );

__END__

$ perl main.pl
Second~First