#!/usr/bin/perl -w
use strict;
my $program = "rnafold";
my $cmd = "$program -p -noOUTPUTFILE";
system($cmd) == 0
    or die "Couldn't launch [$cmd]: $!/$?";