#!/usr/bin/perl

use strict;

use Win32::File;

my $hidfnm = 'hideme.txt';
my $getatr = 0;

my $getret = &Win32::File::GetAttributes($hidfnm, $getatr);
if ($getret)
{
     if ($getatr & HIDDEN)
     {
          print "File is hidden.  Unhiding\n";
     }
     else
     {
          print "File is not hidden.  Hiding\n";
     }
     # Toggle the HIDDEN flag
     my $setatr = ($getatr ^ HIDDEN);
     my $setret = &Win32::File::SetAttributes($hidfnm, $setatr);
}

__END__