use IPC::Open2; $program = "powershell.exe -STA -ExecutionPolicy RemoteSigned -command -"; open2(*README, *WRITEME, $program) or die "Couldn't fork: $!\n"; print WRITEME "date\n" or die "couldn't write: $!\n"; print WRITEME ". ./PowerShell/common/Get-SepmRmmWsAccessToken.ps1 -sym-383925ff28c -port 8446\n"; print WRITEME "Get-SepmRmmWsAccessToken -HostName 10.211.34.102 -Port 8446 -ClientId 7cbce559-2eca-4ff8-806b-b2e511a239d0 -ClientSecret 72905a1c-2953-4607-bb9a-0e92060308b7"; close(WRITEME) or die "Couldn't close: $!\n"; $output = ; print "Content read is:\n----------------\n"; print "$output\n"; print "Content read is:\n----------------\n"; close(README) or die "Couldn't close: $!\n";