Clearcase: Create A Label with a script

I got tired of looking up how to create a label in the rational documents and rather then going through type explorer, I decided to write up a really quick script. Maybe others will find use in it. Either way if I lose it, it's here for the world to find. It just uses standard commands that are found in the rational cleartool manual.

print "What Vob?";

$vob = <>;

print "What Label?";

$label = <>;

chomp($vob);

chomp($label);

print `cleartool mklbtype -nc $label@\\$vob`;

$asdf = <>;

Now I tried to make it so my context menu would be able to call it, but for some reason I can't make it call my perl script, if anyone has any ideas, please let me know and I'll update.