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

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

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