#!/usr/bin/perl -w

use strict;
use warnings;

my $scr = "sspipes.scr";
system("$scr/s");