Help for this page

Select Code to Download


  1. or download this
    my( $username, $user ) = @ARGV;
    
  2. or download this
    $var = ";rm -rf /*;";
    my $ILLEGAL_CHARS = qr/[^A-Za-z0-9._-]/;
    $var =~ s/$ILLEGAL_CHARS/_/g;
    print $var;