Select Code to Download

{
 open my $textfile, '<', 'C:\Users\msmolik\Desktop\PERL test stuff\tes
+tfile.log' or die $!;
...
{
  close $textfile;
  }

C:\Users\msmolik\Desktop\PERL test stuff>testingperl.pl

C:\Users\msmolik\Desktop\PERL test stuff>

2011-12-21 00:23:06.904520%%0f-1f-16%%DB1%% ccParty<0x31A99> Port<1-14
+-7-22> DTMF<4>
2011-12-21 00:21:57.729881%%0f-1f-15%%TRF%% Received event <lmevtVOICE
+_PATH_MODE_CHANGE> cc<lmccSTATE_CHANGED> R<otLIF_PORT:0x4107003> D<ot
+PARTY_OBJECT:0x80B4B> T<otUNKNOWN:0x0> SRC<otLIF_PORT:0x4107003> Addr
+<01-15-0c>
2011-12-21 00:23:06.904667%%0f-1f-16%%DB2%% ccParty<0x31A99> next CF<2
+1>
2011-12-21 00:23:06.904765%%0f-1f-16%%DB2%% ccParty<0x31A99> CF<21> I<
+0>
2011-12-21 00:24:20.423024%%0f-1f-16%%DB1%% ccParty<0x31A9A> Port<1-14
+-7-23> DTMF<4>