fixed by adding this

my $lockopt = shift;

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

Being new to perl there's undoubtedly a better way of doing this !