#!/usr/bin/perl -w
use strict;
#1176161

my $x = qq{Z:\/Partners\/Wilsons\/2push_test};
my $y =   'Z:\Partners\Wilsons\2push_test';

print qq{'$x'  '$y'};
print "\n\t";

END {
      print "Not equivalent! \n" unless $x eq $y;
}

END {                        # multiple end blocks are executed in reverse order
    if ($!) { 
         print "Error is $!, \n";
    } else {
         print "No (perl) error found.\n\t Done with the second END block\n\n";
    }
}

exit();