Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
print "\$Prompt\[$Prompt\]\n";
my $CursorCol = length($Prompt);
print "\$CursorCol\[$CursorCol\]\n";