lm

#!/usr/bin/perl $hi = `ls`; `setenv LM_DIR /opt/corp/projects/board_simulation/tools/hw_model-3.4/sms/lm_dir`; `setenv LM_LIB /opt/corp/projects/board_simulation/tools/hw_model-3.4/sms/models:/opt/corp/projects/board_simulation/tools/hw_model-3.4/sms/maps`; `setenv VCS_LMC_HM_ARCH sun4.solaris`; `setenv LMC_PATH /opt/corp/projects/board_simulation/lib/custom_swift_v41`; $lm = `lm show_modeler -m wmers0c3.1`; $logfile = "lmout.txt"; open (FILE, ">$logfile") or die "I can't open that now\n"; print FILE "hi"; print FILE "$hi"; print FILE "$lm"; close(FILE); open (FILE, "$logfile") or die "I can't open that now\n"; while () { push @Contents, $_; } close(FILE); print "Content-type: text/html\n\n"; print "\n \n lm\n \n\n"; print "\n"; foreach $Content(@Contents){ print "$Content
"; } print "\n"; print "\n\n";