Select Code to Download

#!c:/perl/bin/perl -w
use strict;
...
} else {
    print "Invalid command.\n";
}

if ($hwndWinamp){
    if ($SendMessage->Call($hwndWinamp,WM_USER,0,104) == 1) {
        $SendMessage->Call($hwndWinamp,WM_COMMAND,40046,0);
    }
}