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

my ($swt1, $user, $swt2, $code) = @ARGV;

exit !( $swt1 eq '-uid' && $user eq 'dwho' && $swt2 eq '-code' && $code eq '123456' );