1 files changed, 1 insertions, 1 deletions
diff --git a/perltest b/perltest
index 1e96c79..e6f7974 100755
--- a/perltest
+++ b/perltest
@@ -9,7 +9,7 @@
 sub pchars {
 my($t) = "";
 
-foreach $c (split(//, @_[0]))
+foreach $c (split(//, $_[0]))
   {
   if (ord $c >= 32 && ord $c < 127) { $t .= $c; }
     else { $t .= sprintf("\\x%02x", ord $c); }