print $cgi->submit(
    -name    => 'delete',
    -value   => 'Delete User',
    -onClick => 'return confirm("Delete account?")',
);