#!/usr/bin/perl use UserScenarioDesc; #providing web_link and user_scenario_name for testing the working of the script my $web_link="http://lcla238.ping.com/nightly_results/2010_03_23/log_lcla133.ping.com_64___TestSuiteDARE_Tx_Debug_MpaaPseudoIBM_AIX__3_37.html"; my $us_name="testdare/UserScenarioDAREenableDisableEncryptionTx"; #print statement wrote to check the bug print"hello\n"; #calling the user sceanrio description function for testing my $user_scenario_desc = UserScenarioDesc::get_user_scenario_desc($web_link,$us_name); #print statement wrote to check the bug print"Hello\n"; print "UserScenario Description is as follows:\n"; print $user_scenario_desc."\n";