Help for this page

Select Code to Download


  1. or download this
    open (DAT,">${dir}${TextFile}") or die $!;
  2. or download this
    D:\Development>perl -MCwd -e "print getcwd"
D:/Development
D:\Development>perl -MCwd -e "$f='test.pl'; $p=getcwd; print \"$p$f\""
D:/Developmenttest.pl
  3. or download this
    die "${dir}${TextFile}";