use Win32::Console::ANSI;
use Term::ANSIScreen qw/:color /;

print colored ("This text is bold green.\n", 'bold green');
print "This text is normal.\n";
print colored ['bold red'], "This text is bold red.\n";
print "This text is normal.\n";

use Win32::Perms;

# Create a new Security Descriptor and auto import permissions
$filedir = 'C:\temp';
if( -e $filedir ) {
	print "\n $filedir Exists...";
}
else {
	print "\n $filedir Doesn't exists...";
}
$Dir = new Win32::Perms( $filedir ) || die "Unable to

use strict;

my @dirList;

system("cmd /C \"dir  /B /S  D:\\MyDir\\ \" > dirList.out");
open(FH,"<

Sub BulletMacro()
'
' BulletMacro Macro
'

use Tk;
use strict;

# Main Window
my $mw = new MainWindow;
$mw -> messageBox(-message=>"Successfully Copied the File");

use FindBin;
use strict;

my $ScriptPath = $FindBin::Bin;  
print "\n Script Path =  $ScriptPath ";
my @files = "";
### remote

class Class1
{
    data members
    member functions
}

//this is where i want to