Help for this page

Select Code to Download


  1. or download this
    use File::Spec::Functions qw( catpath curdir splitpath );

...

say $dirname;
say $basename;
  2. or download this
    use Path::Class qw( file );

...

say $dirname;
say $basename;