Help for this page

Select Code to Download


  1. or download this
    print "$file\n";
  2. or download this
    print "$title[1]\n";
  3. or download this
    my $file ="test.html"; 
my @title = split (".", $file);  

print "$file\n";
print "$title[1]\n";