Help for this page

Select Code to Download

Select or download this

perl -e '
$fname = 'test.txt'; 
$base = (split(/./,$fname))[0]; 
print "$base\n";'

Select or download this
```
test
```