- or download this
@ARGV = split(/ \\\\/, $Line);
- or download this
$DisplayName = shift @ARGV || die;
- or download this
$Machine = Win32::NodeName() unless( $Machine = shift @ARGV );
- or download this
$Machine = "\\\\$Machine";
$Machine =~ s/^\\{2,}/\\\\/;