my $lockopt = shift;

if ( $lockopt eq "unlock") {
do stuff...
}