$ perl -MO=Deparse,-p -e " my $perl_file = <$dir/scripts/*.pl>
use File::Glob ();
(my $perl_file = glob(($dir . '/scripts/*.pl')));
-e syntax OK