#!usr/bin/perl
use say;
use strict;
use warnings;

use lib '/home/tinyos/apache24/htdocs';
use Pm::Security qw( banned );

my @list = qw (First ~ Second);

say banned(@list);

__END__

$ perl main.pl
Second~First