@ARGV = split(/ \\\\/, $Line);

##</code><code>##

$DisplayName = shift @ARGV || die;

##</code><code>##

$Machine = Win32::NodeName() unless( $Machine = shift @ARGV );

##</code><code>##

$Machine = "\\\\$Machine";
$Machine =~ s/^\\{2,}/\\\\/;