#!/usr/local/bin/perl

##</code><code>##

use strict;

##</code><code>##

use File::Path;

##</code><code>##

use File::Basename;

##</code><code>##

print"enter the path\n";

##</code><code>##

my $ans=<STDIN>;

##</code><code>##

chomp($ans);

##</code><code>##

my $path= dirname($ans);#I dont have to use this I know.I am just checking here.

##</code><code>##

my $file= basename($ans);#I dont have to use this I know.

##</code><code>##

$ans=~ s/\\/\//gi;#All my file open statements worked well #with c:/bla/bla instead of c:\bla\bla;

##</code><code>##

print $ans; #to make sure that I am replacing all "\" with "/";

##</code><code>##

open(FH,"<$ans") or die $!;

##</code><code>##

@lines=<FH>;

##</code><code>##

print "\n@lines-bla\n";#bla is to check the print statement:Just prints bla there,not printing file contents;

##</code><code>##

Here is the output: