#!/usr/bin/perl
use strict;
use warnings;

my ( $swt, $user ) = @ARGV;

exit !( $swt eq '-uid' && $user eq 'dwho' );