VinsWorldcom@C:\Users\VinsWorldcom> plsh

Perl> print $Bin;
Use of uninitialized value $App::PerlShell::Bin in print at (eval 19) line 2.

Perl> use FindBin qw($Bin);

Perl> print $Bin;
C:/Users/VinsWorldcom/perl5/bin

Perl>