use warnings;
use strict;

my ($device) = defined($ARGV[0]) ? $ARGV[0] =~ /^\s*(\d+)\s*$/ : '';
print "Device #$device\n";