sysopen(DEV, "/dev/sdc1", O_RDWR);
        $Size = sysseek(DEV,0,2);
        print("Size: $Size\n");
        sysseek(DEV,0,0);
        my $KCounter = 0;
        my $MCounter = 0;
        my $Temp;
        while (1)
        {
                syswrite(DEV, 'L' x 1024, 1024);
                $Temp = sysseek(DEV,0,1);
                if ($Temp == $Size)
                {
                        print("\nEND\n");
                        close(DEV);
                        exit(0);
                }
                $Temp = ($Temp / 1024) / 1024;
                printf("\r %f MiB", $Temp);
                if ($Temp >= 100)
                {
                        print("\n");
                        close(DEV);
                        exit(0);
                }