DaniWeb IT Discussion Community - How to open directory ?!

Hi !!!

This script create folder.
I need what this script create and open created folder.
What I must add in this script...??!

@rem = '--*-Perl-*--

@echo off

if "%OS%" == "Windows_NT" goto WinNT

perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9

goto endofperl

:WinNT

perl -x -S %0 %*

if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl

if %errorlevel% == 9009 echo You do not have Perl in your PATH.

if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul

goto endofperl

@rem ';

#!/usr/bin/perl

use warnings;

use strict;

use File::Path;

use Cwd;

use File::Copy;

use File::Spec::Functions;

#hardcoded 

my $FP = 'Y:\graphics_qs';

my $TP = 'Y:\plot_db';

my ($from_file, $to_file) = ($ARGV[0], $ARGV[0]);

my $cwd = `cd`;

chomp $cwd;

my ($from_dir, $to_dir) = ($cwd, $cwd);

#rename dir part

$to_dir =~ s/^\Q$FP\E/$TP/;

mkpath($to_dir);

exit 0;



__END__

:endofperl

Regards !!!

Viki