use Test::More qw(no_plan); $\="\n"; # here will be file name which will store the log o/p print "hello world"; pass("hello world"); fail("do nothing"); diag("hi frend"); use_ok("fake_module"); print "bye";