my $mountpath = '/mnt/floppy';
my $device = '/dev/fd0';

my $status = system("mount", $device, $mountpath);
die "Mount failure for $device and $mountpath" unless ($status == 0);