my $linux_path = '/usr/bin/perl';

     my $win_path   = 'c:\scripts\my.log';

     my $old_macos  = 'Hard Drive:My Folder:My Document';  #dunno
[download]

$path = File::Spec->catfile( @directories, $filename );
[download]

Thank you for the support. Let me clear the thing I have placed the .pm file code here.I now will try to explain it what I understood. I want to call it by using .pl where I will use the pic.pm file

package alter;

sub onPerform
{
  my $nec = shift;
  my $ipic1 = org::item::essential($nec, "Input Picture");
my $(ipic) = $nec->locateAbsolutepath($ipic1);
[download]

"org::item::essential" is a module of to get some parameters and the "input picture" have to get the parameters that will be assigned to $ipic1. The $(ipic) will take the $ipic1. I want to call the subroutine "onPerform" to input the "Input Picture"

#!/usr/bin/perl -w
use pic;#.pm file

my $rapaz1 = 'C:/Users/RAPAZ/Desktop/try/train19_01.chm';


my $rapaz = alter->onPerform();
$rapaz-> {"Input Picture"} = ($rapaz1);
[download]

Please help me how to call the subroutine and pass the file location "input picture" so that it gets the parameter and get prepared for $(ipic)

First have a look at Markup in the Monastery to put code tags around your code.
...
If you not help my old eyes there is no chance my old brain can produce something useful...

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

G'day Rapazzini,

Welcome to the Monastery.

We are more than happy to help you; however, in order to do that, you need to provide appropriate information for us to do that. Telling us "I am unable to do so" gives us absolutely no clue as to what problem you have encountered. We have a page that answers the question "How do I post a question effectively?". Please read it.

When politely asked to add code tags to make your post more readable, the appropriate course of action is not to post an even larger tract of hard-to-read text. Perhaps you didn't know how to add code tags but you could've asked. We have a page that answers the question "How do I change/delete my post?". Please read it.

You clearly have little knowledge of Perl. That's fine: we all started with zero knowledge of Perl. I recommend you read "perlintro -- a brief introduction and overview of Perl". If you follow the advice therein, you'll at least be able to write Perl code that advises you of syntax errors and other real (or potential) problems. Here's an example of the type of feedback you might get (using one of the statements you posted):

$ perl -we 'my $(ipic) = $nec->locateAbsolutepath($ipic1);'
Bareword found where operator expected at -e line 1, near "$(ipic"
    (Missing operator before ipic?)
Unquoted string "ipic" may clash with future reserved word at -e line 
+1.
Can't use global $( in "my" at -e line 1, near "my $("
syntax error at -e line 1, near "$(ipic"
Execution of -e aborted due to compilation errors.
[download]

"How to call the method and pass the file location ..."

I recommend you read "perlootut - Object-Oriented Programming in Perl Tutorial". By the time you've read the first few screenfuls, you should have a basic answer to this.

For I more complete treatment of the subject, take a look at "perlobj - Perl object reference".

As I said at the start, we're happy to help; however, the onus is on you to provide us with sufficient information such that we can do that.

Thank you for the support and valuable suggestions.

Also look at Writeup Formatting Tips.