codepad
[
create a new paste
]
login
|
about
Link:
http://codepad.org/y5jkuYTH
[
raw code
|
output
|
fork
]
Perl
,
pasted on Mar 20:
1
2
use
File::
Basename
;
print
basename
(
"foo.txt"
);
Output:
1
foo.txt
Create a new paste based on this one
Comments: