Example 12-4. examples/shell/file_homedir.pl #!/usr/bin/perl
use strict;
use warnings;
use File::HomeDir;
my $home = File::HomeDir->my_home;
my $docs = File::HomeDir->my_documents;
print "$home\n";
print "$docs\n";
If you are interested in on-site trainings by the author, please
contact me directly.
|
