#!/usr/bin/perl

while(1){

system'pppd /dev/ttyS1 > /dev/null'

}
