@name = split '/', $0;
$name = pop @name;
print "my name is $name \n";