#!/usr/bin/perl

system("/bin/rm abc*");
system("/bin/ls"); # no files begin with "abc"

my $name = "abc".chr(128);
open(FOO, ">", $name); close(FOO);

my $name2 = $name.chr(256);
chop $name2;

if ($name eq $name2) {
  print "\$name and \$name2 are ",
        ($name ne $name2 ? "not " : ""), "equal as perl strings\n";
}

open(BAR, ">", $name2); close(BAR);
system("/bin/ls"); # shows two files beginning with "abc"