Select Code to Download

sub uploadPhoto{
        my $self = shift;
...
        }
        return "Photo uploaded".(length($jpegimg));
}

<form name='photoForm' action='[% userbase %]/ldap.pl' enctype="multip
+art/form-data" method='post' id='photoForm'>
      <input type="hidden" name="rm" value="getDetailUser">
...
      <input type="file" name='photo'> <input type="button" value='Upl
+oad' onclick='this.form.upload.value=1;this.form.submit();'>
</form>