# From the book "Windows XP Cookbook"
# ISBN: 0596007256

# ------ SCRIPT CONFIGURATION ------

use Win32::OLE;

$strFile = '<FilePath>';
# e.g. d:\mysecretscript.vbs
$boolHide = 1;
# True to hide, False to unhide 
# ------ END CONFIGURATION ---------
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');

# Change this to GetFolder to hide/unhide a folder
$objFile = $objFSO->GetFile($strFile);

if ($boolHide == 1) {
    if ($objFile->Attributes && 2) {
        print "File already hidden\n";
    }
    else {
        $objFile->{Attributes} = $objFile->Attributes + 2;
        print "File is now hidden\n";
    }
}
else {
    if ($objFile->Attributes && 2) {
        $objFile->{Attributes} = $objFile->Attributes - 2;
        print "File is not hidden\n";
    }
    else {
        print "File is already not hidden\n";
    }
}