This example will be better :
#!/usr/bin/perl
use strict;
use File::Basename;
use utf8;
sub escMe($) {
my $f1 = shift;
my $f2 = '/etc/passwd';
my $f3 = "'/etc/passwd'";
my $f4 = '/etc/passwd';
$f1 = "'" . $f1 . "'";
if($f1 eq $f2) {
print("Files are same $f1$f2\n");
} else {
print("Files are N
#!/usr/bin/perl
use strict;
use File::Basename;
use utf8;
sub escMe($) {
my $f1 = shift;
my $f2 = '/etc/passwd';
my $f2 = "'/etc/passwd'";
my $f3 = '/etc/passwd';
$f1 = "'" . $f1 . "'";
if($f1 eq $f2) {
print("Files are same $f1$f2\n");
} else {
print("Files are NOT same $f1$f2\n");
}
if (-e $
