in reply to User Select File Capability

What have you tried, where is your code that you wrote and got stuck?

What you mean CD? Do you want them to be able to navigate/browse around a directory? If so, do you really need that? Or would it be simpler to just use cmd line arguments, or one of the Getopt modules?

As for the rest of your question, the below seems to cover it, based on my understanding of your question. If that's not it, maybe you should re-read How do I post a question effectively? and clarify your question...
use strict;
use warnings;

print "Plz enter file\n";
my $file = <STDIN>;

[download]

Replies are listed 'Best First'.
Re^2: User Select File Capability
by johngg (Canon) on Feb 09, 2010 at 13:53 UTC

    You might want to chomp the filename to get rid of the line terminator so as to avoid headaches with "file not found" errors.

    use strict;
use warnings;

use 5.010;

my $prompt = q{Plz enter file: };

print $prompt;
my $file1 = <STDIN>;
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file1;

print $prompt;
chomp( my $file2 = <STDIN> );
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file2;

    [download]

    Running it produces:

    $ ./spw822114
Plz enter file: xyz.c
0x78 - >x<
0x79 - >y<
0x7a - >z<
0x2e - >.<
0x63 - >c<
0x0a - >
<
Plz enter file: xyz.c
0x78 - >x<
0x79 - >y<
0x7a - >z<
0x2e - >.<
0x63 - >c<
$

    [download]

    I hope this is of interest.

    Cheers,

    JohnGG

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom