p4bccheckout.pl

hl2 source code. Do not use it illegal.

$file = shift;
$path = $file;
$path =~ s/\\[^\\]*$//;
chdir $path;
exec "p4 edit $file";